home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
redskins.zip
/
HAIL2RED.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-01-19
|
2KB
|
43 lines
100 REM REDSKINS.BAS
110 REM HAIL TO THE REDSKINS - TRANSCRIBED BY RALPH R. RAYNER - MPCC
111 REM VISUAL ARRANGEMENT BY - DFA - VIP BBS 703-328-6915
120 A$ = "T180O3L2GL4F#GL8AO4L2C.P8O3L2GL4EGL1D"
130 B$ = "L2GL4F#GL8AO4L2C.P8L4E.L8CL4D.L8CL2C.P4"
140 C$ = "O3L8AGEDEEEDEEL2E.O3L8AGEDEEEDEEL2EP8L8D"
150 D$ = "L4G.L8DL4A.L8DL4BO4CDO3L8BGL2EAL1G"
160 KEY OFF: CLS : COLOR 30, 4: LOCATE 3, 27: PRINT "* HAIL TO THE REDSKINS *"
170 COLOR 14, 0: LOCATE 7, 29: PRINT "Hail to the Redskins!"
180 LOCATE 8, 30: PRINT "Hail Victory"
190 LOCATE 9, 29: PRINT "Braves on the Warpath"
200 LOCATE 10, 30: PRINT "Fight for Old D.C.!"
210 PLAY (A$) + (B$)
220 CLS
230 COLOR 14, 4: LOCATE 7, 29: PRINT " Hail to the Redskins! "
240 LOCATE 8, 29: PRINT " Hail Victory "
250 LOCATE 9, 29: PRINT " Braves on the Warpath "
260 LOCATE 10, 29: PRINT " Fight for Old D.C.! "
270 PLAY (A$) + (B$)
280 COLOR 4, 0: LOCATE 12, 29: PRINT "Run or Pass or score--"
290 LOCATE 13, 30: PRINT "we want a lot more!"
300 LOCATE 14, 29: PRINT "Beat'em Swamp'em Touchdown"
310 LOCATE 15, 30: PRINT "let the points soar! "
320 PLAY (C$)
330 LOCATE 17, 29: PRINT "Fight on, Fight on-- "
340 LOCATE 18, 30: PRINT "Till you have won, "
350 LOCATE 19, 31: PRINT "Sons of Wash-ing-ton "
360 LOCATE 21, 32: PRINT "RAH, RAH, RAH!!! "
370 PLAY (D$)
380 CLS : COLOR 20, 0: LOCATE 7, 27: PRINT " * HAIL TO THE REDSKINS *"
390 COLOR 30, 4: LOCATE 13, 29: PRINT " HAIL TO THE REDSKINS! "
400 LOCATE 14, 29: PRINT " HAIL VICTORY "
410 PLAY (A$)
420 LOCATE 15, 29: PRINT " BRAVES ON THE WARPATH "
430 LOCATE 16, 29: PRINT " FIGHT FOR OLD D.C.! "
440 PLAY (B$)
450 Q$ = INPUT$(1)
460 CLS
470 SYSTEM